(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     44246,        964]
NotebookOptionsPosition[     41418,        910]
NotebookOutlinePosition[     41837,        927]
CellTagsIndexPosition[     41794,        924]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Tooltip", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "4"}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"Filling", "\[RightArrow]", "Axis"}], ",", 
   RowBox[{"PlotLabel", "\[RightArrow]", "\"\<Atomic Weight\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7845459728461266`*^9, 3.7845459728500814`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"0750cc13-a9a5-4510-9111-be0601041043"],

Cell[BoxData[
 TemplateBox[{
  "ListPlot","nonopt",
   "\"Options expected (instead of \\!\\(\\*RowBox[{\\\"PlotLabel\\\", \\\"\
\[RightArrow]\\\", \\\"\\\\\\\"Atomic Weight\\\\\\\"\\\"}]\\)) beyond \
position \\!\\(\\*RowBox[{\\\"1\\\"}]\\) in \
\\!\\(\\*RowBox[{\\\"ListPlot\\\", \\\"[\\\", \
RowBox[{TagBox[TooltipBox[RowBox[{\\\"{\\\", \
RowBox[{\\\"1.0079345703125`\\\", \\\",\\\", \\\"4.002593994140625`\\\", \
\\\",\\\", \\\"6.94140625`\\\", \\\",\\\", \\\"9.012176513671875`\\\", \
\\\",\\\", \\\"10.80859375`\\\", \\\",\\\", \\\"12.010696411132812`\\\", \
\\\",\\\", \\\"14.006698608398438`\\\", \\\",\\\", \\\"15.99609375`\\\", \
\\\",\\\", \\\"18.998403191566467`\\\"}], \\\"}\\\"}], RowBox[List[\\\"{\\\", \
RowBox[List[\\\"1.0079345703125`\\\", \\\",\\\", \\\"4.002593994140625`\\\", \
\\\",\\\", \\\"6.94140625`\\\", \\\",\\\", \\\"9.012176513671875`\\\", \
\\\",\\\", \\\"10.80859375`\\\", \\\",\\\", \\\"12.010696411132812`\\\", \
\\\",\\\", \\\"14.006698608398438`\\\", \\\",\\\", \\\"15.99609375`\\\", \
\\\",\\\", \\\"18.998403191566467`\\\"]], \\\"}\\\"]]], \
Function[Annotation[Slot[1], List[1.0079345703125`, 4.002593994140625`, \
6.94140625`, 9.012176513671875`, 10.80859375`, 12.010696411132812`, \
14.006698608398438`, 15.99609375`, 18.998403191566467`], \\\"Tooltip\\\"]]], \
\\\",\\\", RowBox[{\\\"Filling\\\", \\\"\[RightArrow]\\\", \\\"Axis\\\"}], \\\
\",\\\", RowBox[{\\\"PlotLabel\\\", \\\"\[RightArrow]\\\", \\\"\\\\\\\"Atomic \
Weight\\\\\\\"\\\"}]}], \\\"]\\\"}]\\). An option must be a rule or a list of \
rules.\"",2,3,4,27768847300570840866,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.784545978277377*^9, 3.7845459979404664`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[3]:=",ExpressionUUID->"671e481d-e8b7-41d0-9f2d-\
6cb3a28e0cff"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   TagBox[
    TooltipBox[
     RowBox[{"{", 
      RowBox[{
      "1.0079345703125`", ",", "4.002593994140625`", ",", "6.94140625`", ",", 
       "9.012176513671875`", ",", "10.80859375`", ",", "12.010696411132812`", 
       ",", "14.006698608398438`", ",", "15.99609375`", ",", 
       "18.998403191566467`"}], "}"}],
     RowBox[{"{", 
       RowBox[{
        "1.0079345703125`", ",", "4.002593994140625`", ",", "6.94140625`", 
         ",", "9.012176513671875`", ",", "10.80859375`", ",", 
         "12.010696411132812`", ",", "14.006698608398438`", ",", 
         "15.99609375`", ",", "18.998403191566467`"}], "}"}]],
    Annotation[#, {1.0079345703125, 4.002593994140625, 6.94140625, 
     9.012176513671875, 10.80859375, 12.010696411132812`, 14.006698608398438`,
      15.99609375, 18.998403191566467`}, "Tooltip"]& ], ",", 
   RowBox[{"Filling", "\[RightArrow]", "Axis"}], ",", 
   RowBox[{"PlotLabel", "\[RightArrow]", "\<\"Atomic Weight\"\>"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.784545978458563*^9, 3.784545998002366*^9}},
 CellLabel->"Out[3]=",ExpressionUUID->"abb74f99-bb79-4402-a5ef-a7cfa8d86011"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Rest", "[", 
    RowBox[{"Import", "[", 
     RowBox[{"\"\<ExampleData/elements.xls\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7845459935825486`*^9, 3.7845459935965147`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"bc2dd685-c653-429b-899d-314e407089b8"],

Cell[BoxData[
 RowBox[{"TableView", "[", 
  RowBox[{"Import", "[", 
   RowBox[{"\"\<ExampleData/elements.xls\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7845461130339108`*^9, 3.7845461130418887`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"be804ee5-0aef-4fd6-af18-f03cbe8805ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{
   RowBox[{
   "Import", "[", "\"\<ExampleData/financialtimeseries.csv\>\"", "]"}], ",", 
   RowBox[{"Filling", "\[RightArrow]", "Axis"}], ",", 
   RowBox[{
   "PlotLabel", "\[RightArrow]", "\"\<Financial Data Time Series\>\""}], ",", 
   RowBox[{"ImageSize", "\[RightArrow]", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7845462160519075`*^9, 3.784546216078781*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"b6d0c1e0-fddc-49fa-b4fb-737b585b2337"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.7845465311936407`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"0752986c-b474-458f-bd48-efbf8f3ec417"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Text", "[", 
   RowBox[{"Style", "[", 
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<ExampleData/buildings.mdb\>\"", ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Datasets\>\"", ",", "\"\<Buildings\>\"", ",", 
           "\"\<LabeledData\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
            "\"\<Rank\>\"", ",", "\"\<Name\>\"", ",", "\"\<City\>\"", ",", 
             "\"\<Height\>\""}], "}"}]}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Frame", "\[RightArrow]", "All"}]}], "]"}], "]"}], "]"}], "//", 
  "DisplayForm"}]], "Input",
 CellChangeTimes->{{3.78454653800264*^9, 3.784546538008622*^9}, {
  3.7845465692308407`*^9, 3.7845465884005075`*^9}, {3.7845467573775883`*^9, 
  3.784546843314947*^9}},ExpressionUUID->"565d5646-a1da-48c7-b767-\
c5272f79371a"],

Cell[BoxData[
 TemplateBox[{
  "Transpose","nmtx",
   "\"The first two levels of \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \
\\\",\\\", \\\"\\\\\\\"Taipei 101\\\\\\\"\\\", \\\",\\\", \
\\\"\\\\\\\"Taipei\\\\\\\"\\\", \\\",\\\", \\\"508\\\"}], \\\"}\\\"}]\\) \
cannot be transposed.\"",2,12,11,27768847300570840866,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.78454680953522*^9, 3.7845468395258493`*^9}},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[12]:=",ExpressionUUID->"90a372ed-15ce-4748-acad-\
0cab9c08d752"],

Cell[BoxData[
 TagBox[
  InterpretationBox[Cell[BoxData[
    FormBox[
     RowBox[{"Grid", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
         "1", ",", "\<\"Taipei 101\"\>", ",", "\<\"Taipei\"\>", ",", "508"}], 
         "}"}], "]"}], ",", 
       RowBox[{"Frame", "\[RightArrow]", "All"}]}], "]"}], TextForm]], 
    "InlineText",ExpressionUUID->"0f470992-0c68-4e05-b1ce-fd5efc197610"],
   Text[
    Style[
     Grid[
      Transpose[{1, "Taipei 101", "Taipei", 508}], 
      RightArrow[Frame, All]]]]],
  DisplayForm]], "Output",
 CellChangeTimes->{
  3.7845465415593657`*^9, {3.7845465775140095`*^9, 3.7845465892882547`*^9}, {
   3.7845467807075567`*^9, 3.7845468395497856`*^9}},
 CellLabel->
  "Out[12]//DisplayForm=",ExpressionUUID->"52703ab1-58fb-460d-a025-\
ded9c6104012"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SystemOpen", "[", 
  "\"\<http://www.uxc.com/review/UxCPrices.aspx\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.78454693059651*^9, 3.7845469306085205`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"e1446aa2-9884-4e5c-b53a-511226a8300d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DateListPlot", "[", 
  RowBox[{
   RowBox[{"WeatherData", "[", 
    RowBox[{"\"\<LESA\>\"", ",", "\"\<MeanTemperature\>\"", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2014", ",", "8", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2016", ",", "7", ",", "31"}], "}"}], ",", "\"\<Day\>\""}], 
      "}"}]}], "]"}], ",", 
   RowBox[{"Joined", "\[RightArrow]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7845886551177063`*^9, 3.784588655118705*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"da8a4d2c-c4ca-4e01-8d80-824bdac21f2a"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxVWnl8FdX1H7ZAEpJMFkgIIQwBQiAkDGRPCJmwJUCWSQiEJYEJIYDV6mi1
Km5PK9VqledSq9XqVFxQLD6tttT1CXWr21Nx96cPkWoZl2HJQgih752b7/ze
yR/wOZ9z7znne865d+793jdl0wXNXcMlSfog9E/4/9Bf8HHnaHXK3ppD21sK
tZAsfxSSd+7vzmnbqYZl7WxI/qFpX+aO3IKwbM48drSaZnpItlaG5AsrYz7Z
5ZAcuCokh0bbTftKwrK0G3JpaVhWPwjJbWEH9xWFZWOAy97s40NyBsl+PSTX
HtoeCpFkZ/txxEPxKg+H5IfMUACH54Zl/T3o95DsOXV8CN9Bkn1TTwzhS5gX
loP1Jxge+bITwEP+tAdPwJ7A//YJ+KP5Vo9rT+BXTjJZWnGSxaNecnLIvkl6
44GTyL/A/+bJIfudAv8J2Nsp8E/qRnwCf203y5d+UfcQHon0nvu6h/L3Oul9
r0HvKSb8jjue6iNP7IE/qp+2pAfxCPwX9KAeZN+6p4f1T+AA5icQXumnHsRL
/aSm9SIeyp+xsJfZ957Xi3yR3n9XL+Il2fH3Ij4ar9i9yKeo/7g+6EX9q/rg
T9T/nJBM4R+aQ/jv6EN/UnzyS32wR3rt+z7kl+abSaeAl8Zb80NyaHBlTCuN
D2w5BX/5hP+2kDw5vBwySVafd+WZhP/IKcQ7i/An9EM/m/CX9SO+PMLf2Q/7
pFdu7cf6oXj0ff3od5I93/QjvwL/2NOwR3Kw+DT8k3254zTwUzzazafRHxS/
+Szm7xP4vz4N/2QvED2A+MieVDjA4lU3DCD/JBs3DiB/OYT/6QHEk034v3T1
JDtRZ5Afsq/MPcP6S19/BvEK/DvOsHh8T56Bf8IT/MzVU/3kkYPoX7H/5Q+y
+phrBmGf4rWuG0Q+CU/giUHEK+r/ySCrpzrsLPSi/rlnEY+o/6qQPDOc0N2i
/techb9Mwv/YWcRD85WDZ1GvXMI/6M6n+Dw5kj3kbyrhbw7Jwl464b8yJNP0
yhTC/2hIFvFOJPzvu/OnEf7T7niab00fZleH2y1l73jC3zgM+iTCvz0ki/xm
Ef6HQrLIF8VjvDsM9gX+vpAs8jGF8GcNZ/E4dcOhp3wol4ZkkY9JhP8v7vhx
hP8tVyb/vu6QHNHfwckjWHzy8hGwT/nTLh6BeEk27x+B/FH81hsjmP3A8ZDc
TBMmE/5JI+3qA+Hw9k8g/DUj4U8h/BeORL7SCP+9rp7y7X91JOwJ/D+PRPyU
byV9FOaTrC8ehXwkEv7zRw3Zq+muCuO/exTiGUb494fkK2jDGEv4fwzJJKb8
FB6vpUbZ1WQ+5ruwbFaHZIK740RYts6Ngr1jYTnwB1c/mvD7oxAv1Us9GsXw
GimjMT+Z8C8YjfxnEP5tozE+nvDfPhr5JnzKiyGZ9rddUYT/u5DcEzbX3ReO
x5M4BvHEUv0rxgCvRPi7xsD+YHi87HX1P7wcxv9cSKbvkX2I8H87BvFRvqz4
aPgfTvUvjUZ/UD2kzmjU42jYnnpLNPCO8ofxHop27Yf1/tgYzKc/pygG+T8b
9q8YMYi3JyzrN/3/eKr3MzEu/rA931chmfbntmFhf8ExscjH6bBeLgjJtF/k
vE1422Phr5fw3hALew7V+6lYlt/AF7FY/2K9R42FTPVV1bGs/411Y13/4fne
6139q4R/rytHU70/Hcv6VxkRB/+fEv68OOAPUr1b41Afyofv2jjgeyGsD+6J
Y/WQP45j+dakeNbf5qx49MNJwt8SD//fE/6r49GPtP9Ij8Vjv6D1q34Yj3rJ
hP9MPKufd0YC609/UwL6SfT7FQksP8ojCVhPR8KyHkhg9fb0u/YOU/2nyW49
w3KwQYa9U9Tvl8tsPWi7ZMRH/Wy+I7P4rV4Z+1Eq9fuUROST6ivVJcI+7X/q
rxMRr1jvViLsxdB6/3ciy6f/ZCL6VdQ/M8ldL7TelyWxftJ/lcT2A8+fk9B/
tN/4Xk9CP1D8wWNJbH+UM5Ihi+/d0mQ78ntrmslsv7b+lIz6Tif8/0qG/xmE
/+dk+KPvgzohhdk3FqWgvgL/L1Pgj76//j+mIF+0/zmvpAAv9ZfyQwrwkV4f
Pw7+KD6PNo59X32/4PrgnePYfPnlcfBP+dH+O459H8zk8Sxeq3I8xlM9A1vH
Az/1g3T7ePQH7efqC+ORP/G9/894Vj+vnMrOE/7yVOCneJzNqazflJ2prH/0
f6ay/cZzOBX+6Hvti0tj9QmWpME+rU95U9rQ/rCbzlPa79PYecT8exrqR/W2
gmnIJ80PxEyAP1H/ogksv+rGCez8ZfxuAsuP928TUC+a7/8/Pt4Znc7PO/PS
EQ/519vS7cjzsee36cBL8ft87ng6/wY/T7cjz8fyqInwL/DPmYj5ZM9cOxH+
KT7rN+546qfAXyfCPsnSpxNhn8arwzPsyPuLMTsD9um86l2dYUeeZ/2eDDvy
POw8nsH8Kx9lwL7Af9aVqT6emZOYf9/KSciPqP9Vk1Bvsi/vdsfTeV37wJXp
vmkOuPPpfmBlZwKPuO/pmcyfdIUrU/+pD2eiPyjfxnuZ6D/y5z2F8R7S+6dO
tiP5AafelcV9/7LJdiQ/oD84eSh/CXRf97wNWfA3vp7JduR9I6goduR9SF6h
sPi0SxTMF/gfcPWUL+tNBfioPwInFI4/cwrGk16tdWVx37loCusH732uLPC/
NoX1p+NMGTof5dL9UpmYZUfyN/qSLDuSn/JckGVH3kd997h6wfccyBo637YI
vuenrCH/+yi/WtpUll9z4VTET3yJdd5UzCc5cBfGH6bx0itTWT1UeyrqR7Ix
bhrwCr6japodyU/5z4Fe3K+dO6bZkfc75aVp7P6ifz+NrXdP0nToKd+++dPt
SD4iuGW6HckXyLdNtyP5LO356UP52kP5MI+44wXfk5BtR/J1gbJs+KN8SJuz
Wf+qt3LZ2JeN/NB47zfZdiRf6B87Y2i8Q3qneAb8ET+ldMzA/HLCf7M7voLw
Pwu94K98X89g6ycYncPqJxfmMDzahhzgJ715Yw7qVUb4n85h9gNfwt5BgX/0
TDZfnTsT/kT917t6wfftmMn6xf+kKxNe5zPMPyjwj5wFWaz//FmwJ9b/mlms
H33XzWL9F3xiFotP/sTVk31tWC72I5LN3Fzkh+Zbq1xZ9P81uSy/0uO5yBfJ
6kFXpvHGYC7O89Rv3pzZmC/Wf/NsrFdR/ytnIx+ER3l0NuIT6//92ax/Padn
o99F/afnYT0L/I15qJ/Avz0P/kX9H8pDvGL9v5vH8Fl9eayfA1n56D/B99bn
M7zqpfmIV9T/L/mIl+x538pn+78zeQ77/ijL57D1qF88h/n33I/xgr/2vTGH
5T94fI4dyf/Kk1TYp/1Xq1GRH7HeL1TZ98C6V2Xnh8CrKtuPJUdl/tX0ufBP
+5WxeC7Lr/f8uUP9kyH6/W7oHVpfzn7M3yfq/eNc1J/s66nz0H+i3tXz2H7m
O3ce6yfZP499D7Sj0DuCz00pQD+SbC0oYN/PwLYCNl66owB4BZ//YgGLz/iu
gOXXm1hoR/KD/opC9j12ugoxn/wp3kKcd+g8oz9XiPOKON99686n/Prii2Bf
7O+lRcAv+MzOIown/9otRYiP5pv/4OOtQ0Wor8AfW4z+IFkqLmbfa9Uo5vW+
qRj2yJ/3mWLgIb3/Kz7eGVPCzntKQQmLT28vQT0En39DCfpDfN+fKuHn2y9K
4J/OX3JUKfBTPjW1lJ1XzHWlLB7renc85TOwt5Sdl6TP3PEUrzqijPFbRl4Z
O/97W8tcvoHut9eWsXo4e8oQj8D/cRnyQf50qRx66hfPrHJ2P/W1lKM/iC8N
Xl2O+Khf5MfK+f3mw3J2/jLPlLPzmTWjgt2PAk0V7L4jXVkB/4LPfqTCjuTv
jUAFP9/1V7D4/dPms/uO0zCfnSeVy+cjX6TXd7njBZ/9znx2XvL1zmf3teCU
ShaPXFeJ+Mm+9utKxq+aljue8mf9u5Lxt4GTlZzPnrwAsrjfLVsA+8T3Gb9a
gPst8QvePy8AHuKj/a8vYPdV59gC5Jv8KxlVrJ/0pVVM7zGr4J/4Tt+fqhg/
GPyXO/4I8Ts/VyF/NF+boME/3bfNRRrio/uo9UsNfNAYwv9HjfGj0n6N8cHq
DxrOnx+FZWN8NcuPV6uGnu77/l9UM37XuZPrlZddmeLR/1sNPMSPeJIXIt4s
wl+5EHhIH9y6kNVDvn0h8AwQn/3CQsaXmv9ZyPgjS17E+798kR35niJ1LWJ8
irrTHS/4/H8uYv3mPbwI8Yr3jLjF6DeK3ylZjHiov5RNixm/rP9+scvfEv6/
L2b8vy/ozhf4Y5Yw/kwuWsLwahuXsPjN37ky+bf+5o4X/PWYpZzPmLeU+Tfa
lrL14/3tUvQb4fP7lnL+/nN3vsA7qobtx/qcGrYfeNbWMP7D95saVv/gX2tY
/8if1oD/TCC8w2sZv2XOrmX7p7W6ltU/4KkFX/wl9fueWvYeon5Uy/nMs7XI
N/GT3pnL2Huaf+Uy7CfE3zlXLWP8sLJ7GedzPljG3ts8A65e8HnZyxnfHNSX
s/cv+QpXpnxoDy9n72Hme8sZv2ydWo58CP6mYQV7z1MvW8H4PuPBFaw/vW+v
YPysv2cF6ydHqWP7p7KijvHD+iV1rJ6eB+oYf+p7s471Q/BEHetfObMe9aD+
0Wrroaf8mxfVs/pY99Uzfj/wWj37PkvH6tl+qE5sYO8VxpIG2Isj/Bc0sPc5
/z0NjK90DjSw/V/5qYHxpXpaI+NDfec1Mv49eFcj6kH9K7/SyPh4zW5k8Zrj
dP4+W6Uzf4FzdPijeKQ7deSX6qm+pLP9w/heZ/uLN6mJjVdua2LfH/35Jvb+
5znSxPZfX0Izq0ewrJnFL29uRv5oPWq3NrP8mfua2Xuh9U0ze88OjF3J+lcq
4bLasZJ9n4ybV7LvsfdZLvu/Xsn2Hye6hfGPSmEL+57pG1rYe4Hnxha2v/me
bmHnj+CXLWw/lEevYvXW5q5i68dcv4rFY+1Yxd4LAk9yvfT5Krb/qCNXs/du
I3816w/vmtVsP/Bft5q/RzyxmvWr8slqxCfOK8NaYU+cV3JbGf/uW9UKe2I9
X9OKeOh8Lj/uyuK8crCVrX9zsJXdF6ycNWy/CDSvYe8z0lVr4J9k9dE1jC82
3l/D9mPv6TVsv/VPX8u+/07jWvZ9V7avZe8b+kNrgU/w0e+uZXy5r28t4hHv
MVnr2P1Erl8H++K+duk6fj97ax073wa617HztKSsZ/y9unw9u08aF69n9ffe
vx72Bd431jM8zvH17P1DmdTG+G29pg16uj95Lmxj+fbd2wb/4n76ahvyKe6n
Thvj07X0dsYPmYvbwZ+J39ud387uh4G722Gf7hfSgXZ2v1J/bGf5NFI3QCZ/
3uoNiJfi85+7gd/P/7CB4VX8GxC/OK8cdWWy70nZiHyQfd+CjYxfCG6DLH7/
Jt+x0Y78PZn24kY78veC5ncbwT8I/IkG48MCFQbjd6QtBvgJwT95DfAtgp94
zkC+yb73W8yvIb0/vgP2xPtDaQfjU5TODvbepd/Swd5vPP/oYOvTd6iD8R/B
2E3AI/iZ4k125O8fNWMT4z/Nm1xZ8K/PuPMF//jVJsQv8Ed3Mr5MLXBl8XvD
9k7UU/BvN3QiPsFHPdXJ+GnnC3e84KOiNvP3F3Uz46s861xZ8I/Xb2b8b3Cv
qxf842euPZK1EV2MHzbzuhi/a7V2AS/lJ3BtF/hEkqUnuhCvqP/HXay+hrSF
8SfeWZBLxe8tW7bgfi1+b3n1FlYf5bEtzL/+4RbUn/h4z5kt4I+oXr4ZWxm/
F2zayvnIK7cy/lF7ZCt/fwhstSN/32r1b2X8YWDaNuAXvzdu3Mb6R718G/yR
bOzaBnwUj/cdLvt7XblQ+x9nFq45
       "]]}}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.0055000000000000005`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{3.61584*^9, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`DateTicksFunction[Automatic, DateTicksFormat -> {Automatic}], 
      Charting`DateTicksFunction[
      Automatic, DateTicksFormat -> {Automatic}, "TickLabels" -> None]}}, {{
     Automatic, Automatic}, {{{3.6290592*^9, 
        FormBox[
         StyleBox["\"2015\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.6605952*^9, 
        FormBox[
         StyleBox["\"2016\"", 
          Directive[], {}, StripOnInput -> False], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}}, {{3.6290592*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}, {3.6605952*^9, 
        FormBox[
         TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {
        0.013888888888888888`, 0.}, 
        Directive[]}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "NoShowPlotTheme" -> Automatic, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{3.61584*^9, 3.678912*^9}, {-2.72, 27.94}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{{}, Automatic}]], "Output",
 CellChangeTimes->{3.784588690145102*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"8f874db7-4979-4f85-a06c-f46380682209"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"example3DAnimation", "=", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"k", " ", "x", " ", "y"}], "]"}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"k", " ", "x", " ", "y"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "0", ",", "Pi"}], "}"}], ",", 
      RowBox[{"Filling", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "1"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7845919956894712`*^9, 3.7845919956964197`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"1e8de672-fb3f-4d6e-a692-925e88fd94d4"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 2., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"\:65e0\:6807\:9898\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0, 2}}, Typeset`size$$ = {382., {158., 164.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`k$44764$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$44764$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot3D[{
         Cos[$CellContext`k$$ $CellContext`x $CellContext`y], 
         Sin[$CellContext`k$$ $CellContext`x $CellContext`y]}, \
{$CellContext`x, 0, Pi}, {$CellContext`y, 0, Pi}, Filling -> Automatic, 
        PlotRange -> 1], "Specifications" :> {{$CellContext`k$$, 0, 2}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{431., {204., 210.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.7845919985543203`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"8dbd9515-99cc-45f8-bdd5-57fe70d91506"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<example3DAnimation.gif\>\"", ",", "example3DAnimation"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.784592032854023*^9, 3.784592032856017*^9}, {
  3.784592198711392*^9, 3.784592200736316*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"0785a000-7270-46c4-8b7c-50381e04d984"],

Cell[BoxData["\<\"example3DAnimation.gif\"\>"], "Output",
 CellChangeTimes->{3.7845921171752977`*^9, 3.7845922708056393`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"ba9504fe-e5ae-4edf-b5c9-bfe2dc9b1db3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SystemOpen", "[", "\"\<example3DAnimation.gif\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.7845921283272934`*^9, 3.7845921441003246`*^9}, {
  3.784592354340684*^9, 3.7845923596042504`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"123ab611-670e-4710-b002-5beceb19578d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"ExampleData", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Geometry3D\>\"", ",", "\"\<UtahTeapot\>\""}], "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"BarChart3D", "[", 
  RowBox[{"data3", ",", 
   RowBox[{"ChartElements", "\[RightArrow]", "g"}], ",", 
   RowBox[{"BoxRatios", "\[RightArrow]", 
    RowBox[{"{", 
     RowBox[{"4", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.78459915302032*^9, 3.7845991530223045`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"a5fc9897-9c73-456b-b76a-fb7b40827644"],

Cell[BoxData[
 TemplateBox[{
  "ExampleData","notent",
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"\\\\\\\\\\\\\\\"UtahTeapot\\\\\\\\\\\\\\\"\
\\\\\\\"\\\"}]\\) is not a known entity for the collection \
\\!\\(\\*RowBox[{\\\"\\\\\\\"\\\\\\\\\\\\\\\"Geometry3D\\\\\\\\\\\\\\\"\\\\\\\
\"\\\"}]\\). Use \
ExampleData[\\!\\(\\*RowBox[{\\\"\\\\\\\"\\\\\\\\\\\\\\\"Geometry3D\\\\\\\\\\\
\\\\\"\\\\\\\"\\\"}]\\)] for a list of entities.\"",2,20,12,
   27768847300570840866,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7845993386871243`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[20]:=",ExpressionUUID->"529eeece-9945-4060-9837-\
7cb6d6d3e870"],

Cell[BoxData[
 TemplateBox[{
  "BarChart3D","nonopt",
   "\"Options expected (instead of \\!\\(\\*RowBox[{\\\"BoxRatios\\\", \\\"\
\[RightArrow]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"4\\\", \\\",\\\", \
\\\"1\\\", \\\",\\\", \\\"1\\\"}], \\\"}\\\"}]}]\\)) beyond position \
\\!\\(\\*RowBox[{\\\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"BarChart3D\\\", \\\"[\
\\\", RowBox[{\\\"data3\\\", \\\",\\\", RowBox[{\\\"ChartElements\\\", \\\"\
\[RightArrow]\\\", RowBox[{\\\"ExampleData\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"Geometry3D\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"UtahTeapot\
\\\\\\\"\\\"}], \\\"}\\\"}], \\\"]\\\"}]}], \\\",\\\", \
RowBox[{\\\"BoxRatios\\\", \\\"\[RightArrow]\\\", RowBox[{\\\"{\\\", RowBox[{\
\\\"4\\\", \\\",\\\", \\\"1\\\", \\\",\\\", \\\"1\\\"}], \\\"}\\\"}]}]}], \
\\\"]\\\"}]\\). An option must be a rule or a list of rules.\"",2,21,13,
   27768847300570840866,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7845993387080345`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[20]:=",ExpressionUUID->"1856623e-20b8-44a8-b7cc-\
96812e6b9ca5"],

Cell[BoxData[
 RowBox[{"BarChart3D", "[", 
  RowBox[{"data3", ",", 
   RowBox[{"ChartElements", "\[RightArrow]", 
    RowBox[{"ExampleData", "[", 
     RowBox[{"{", 
      RowBox[{"\<\"Geometry3D\"\>", ",", "\<\"UtahTeapot\"\>"}], "}"}], 
     "]"}]}], ",", 
   RowBox[{"BoxRatios", "\[RightArrow]", 
    RowBox[{"{", 
     RowBox[{"4", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Output",
 CellChangeTimes->{3.784599338721*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"c6226ee3-0c2d-4879-aabd-a4244467e3d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox[
  NamespaceBox["LinguisticAssistant",
   DynamicModuleBox[{Typeset`query$$ = "China population since 1980  ", 
    Typeset`boxes$$ = RowBox[{
      TemplateBox[{"\"China\"", 
        RowBox[{"Entity", "[", 
          RowBox[{"\"Country\"", ",", "\"China\""}], "]"}], 
        "\"Entity[\\\"Country\\\", \\\"China\\\"]\"", "\"country\""}, 
       "Entity"], "[", 
      InterpretationBox[
       DynamicModuleBox[{EntityFramework`Formatting`Private`open = False}, 
        TemplateBox[{
          TemplateBox[{"\"population\""}, "ImplicitEntityPropertyBase"], 
          TagBox[
           GridBox[{{
              TemplateBox[{
                RowBox[{" ", "\"Date\""}], "\":\"", 
                RowBox[{"Interval", "[", 
                  RowBox[{"{", 
                    RowBox[{
                    TemplateBox[{
                    RowBox[{
                    StyleBox[
                    "\"Year: \"", FontColor -> GrayLevel[0.5], FontWeight -> 
                    Plain], "\"1980\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", "1980", "}"}], ",", "\"Year\"", ",", 
                    "\"Gregorian\"", ",", "8.`"}], "]"}]}, "DateObject", 
                    Editable -> False], ",", 
                    TemplateBox[{
                    RowBox[{
                    StyleBox[
                    "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> 
                    Plain], "\"Fri 6 Dec 2019\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2019", ",", "12", ",", "6"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "8.`"}], "]"}]}, 
                    "DateObject", Editable -> False]}], "}"}], "]"}]}, 
               "ImplicitEntityInfoRow"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
            "GeneralizedEntityInfoGrid", 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
          Dynamic[EntityFramework`Formatting`Private`open], 
          "\"EntityProperty[\\\"Country\\\", \\\"Population\\\", \
{\\\"Date\\\" -> Interval[{DateObject[{1980}, \\\"Year\\\", \
\\\"Gregorian\\\", 8.], DateObject[{2019, 12, 6}, \\\"Day\\\", \
\\\"Gregorian\\\", 8.]}]}]\"", 
          TemplateBox[{
            RowBox[{"Interval", "[", 
              RowBox[{"{", 
                RowBox[{
                  TemplateBox[{
                    RowBox[{
                    StyleBox[
                    "\"Year: \"", FontColor -> GrayLevel[0.5], FontWeight -> 
                    Plain], "\"1980\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", "1980", "}"}], ",", "\"Year\"", ",", 
                    "\"Gregorian\"", ",", "8.`"}], "]"}]}, "DateObject", 
                   Editable -> False], ",", 
                  TemplateBox[{
                    RowBox[{
                    StyleBox[
                    "\"Day: \"", FontColor -> GrayLevel[0.5], FontWeight -> 
                    Plain], "\"Fri 6 Dec 2019\""}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"2019", ",", "12", ",", "6"}], "}"}], ",", 
                    "\"Day\"", ",", "\"Gregorian\"", ",", "8.`"}], "]"}]}, 
                   "DateObject", Editable -> False]}], "}"}], "]"}]}, 
           "ImplicitEntityPropertySequence"]}, 
         "ImplicitEntityPropertyToggle"]], 
       EntityProperty["Country", "Population", {"Date" -> Interval[{
            DateObject[{1980}], Today}]}], SelectWithContents -> True], "]"}],
     Typeset`allassumptions$$ = {{
     "type" -> "Clash", "word" -> "China", "template" -> 
      "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> 
      "2", "Values" -> {{
        "name" -> "Country", "desc" -> "a country", "input" -> 
         "*C.China-_*Country-"}, {
        "name" -> "AdministrativeDivision", "desc" -> 
         "an administrative division", "input" -> 
         "*C.China-_*AdministrativeDivision-"}}}}, Typeset`assumptions$$ = {},
     Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
    "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 
     1.9916731`7.750763051219911, "Messages" -> {}}}, 
    DynamicBox[ToBoxes[
      AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
       Dynamic[Typeset`query$$], 
       Dynamic[Typeset`boxes$$], 
       Dynamic[Typeset`allassumptions$$], 
       Dynamic[Typeset`assumptions$$], 
       Dynamic[Typeset`open$$], 
       Dynamic[Typeset`querystate$$]], StandardForm],
     ImageSizeCache->{580., {16., 25.}},
     TrackedSymbols:>{
      Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, 
       Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
    DynamicModuleValues:>{},
    UndoTrackedVariables:>{Typeset`open$$}],
   BaseStyle->{"Deploy"},
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True], "\[Placeholder]"]], "Input",
 CellChangeTimes->{{3.7845996007671137`*^9, 3.7845996240149155`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"66e55a97-0b47-4bb7-bff5-36732d033b15"],

Cell[BoxData[
 SubscriptBox[
  InterpretationBox[
   RowBox[{
    TagBox["TimeSeries",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquarePlusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
               Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{}, {{}, {}, {
                 GrayLevel[0.5], 
                 PointSize[0.125], 
                 AbsoluteThickness[1.5], 
                 StyleBox[
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7Fl11LwinD7aQwUcXn2Jtl8b9ArK53Bw3utt
q3f4M5Qv4CC+Otg/K43RAcIXcfi+f0F40nsYX8JBX1jtBbsrL5Qv45DtoBvW
xcwP5Ss4NFwMEp60GWafksOc359Whf/9BeWrOARoR64NnnwNyldzMHERNjG5
+no/hK/hIKRdVZBY8w3K13LIMJWbeIH9L5Sv4zDLV7txKvsXKF/PoWzi1MhL
TFwHIHwDB/cgkWNzBTmgfEOHQ2p/W4VucUL5Rg7G79Iu8t1mg/KNHcrd9WVC
ixmhfBOHrX+2zedZ8B9qvqnDPJ3j61kKGKDyZg5FiwwE9lTA7DN3qN+4vmmS
siiUb+HAtbzy3bJ4ISjf0oFzYux88dMCUL6VQ5zaARf5axJQvrWDmCZL36VN
UlC+jYPfBC+BlBJxKN/WoX+K14Vt8jJQvp3DgYTiXbPeiUD59g48fy+4bYoW
g/IdHL4IXz2XEgqVb3BwONa2ilHOixsq7+jg3yuU9L5AECrv6NBaqXjidDLM
vU4OTZOznfNi2KHyTg4WG+6H/hWBhY+zQ5qveFfD7s+Q8Glwdviw+EOTxY2j
0Ph0cVj18NqRC96XIfwGF4dlb2fpWLbB0perwzqzL3Nnz/wElXd1YCgOSXoi
cRUq7+ZgkHHN7dvHG1Dz3RxO/X996GnXG2h8uDusTTv5fqPlTai8u4O3Uoqa
3YkrUP0eDlu+ZYpfimJwgMh7OPwpNvZ9PpcDwmfwdPgt/Kj+tbigAwD0Q951

                   "]], FontFamily -> "Arial", StripOnInput -> False]}}, {}}, 
              AspectRatio -> 1, Axes -> {False, False}, 
              AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, Background -> 
              GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
              DisplayFunction -> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Thickness[Tiny], 
                GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 
                Dynamic[
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, 
              Method -> {"ScalingFunctions" -> None}, 
              PlotRange -> {{0., 50.}, {-7.030970816185017, 
               4.273359296964368}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{1, 1}, {1, 1}}, 
              Ticks -> {Automatic, Automatic}], 
             GridBox[{{
                TagBox[
                 TemplateBox[{
                   RowBox[{
                    TagBox["\"Time: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"01 Jan 1980\"", "SummaryItem"]}], 
                   RowBox[{
                    TagBox["\" to \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"01 Jan 2019\"", "SummaryItem"]}]}, 
                  "RowDefault"], "SummaryItem"], "\[SpanFromLeft]"}, {
                RowBox[{
                  TagBox["\"Data points: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["40", "SummaryItem"]}], "\[SpanFromLeft]"}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             PaneBox[
              ButtonBox[
               DynamicBox[
                FEPrivate`FrontEndResource[
                "FEBitmaps", "SquareMinusIconMedium"]], 
               ButtonFunction :> (Typeset`open$$ = False), Appearance -> None,
                Evaluator -> Automatic, Method -> "Preemptive"], 
              Alignment -> {Center, Center}, ImageSize -> 
              Dynamic[{
                Automatic, 3.5 CurrentValue["FontCapHeight"]/
                 AbsoluteCurrentValue[Magnification]}]], 
             GraphicsBox[{{}, {{}, {}, {
                 GrayLevel[0.5], 
                 PointSize[0.125], 
                 AbsoluteThickness[1.5], 
                 StyleBox[
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7Fl11LwinD7aQwUcXn2Jtl8b9ArK53Bw3utt
q3f4M5Qv4CC+Otg/K43RAcIXcfi+f0F40nsYX8JBX1jtBbsrL5Qv45DtoBvW
xcwP5Ss4NFwMEp60GWafksOc359Whf/9BeWrOARoR64NnnwNyldzMHERNjG5
+no/hK/hIKRdVZBY8w3K13LIMJWbeIH9L5Sv4zDLV7txKvsXKF/PoWzi1MhL
TFwHIHwDB/cgkWNzBTmgfEOHQ2p/W4VucUL5Rg7G79Iu8t1mg/KNHcrd9WVC
ixmhfBOHrX+2zedZ8B9qvqnDPJ3j61kKGKDyZg5FiwwE9lTA7DN3qN+4vmmS
siiUb+HAtbzy3bJ4ISjf0oFzYux88dMCUL6VQ5zaARf5axJQvrWDmCZL36VN
UlC+jYPfBC+BlBJxKN/WoX+K14Vt8jJQvp3DgYTiXbPeiUD59g48fy+4bYoW
g/IdHL4IXz2XEgqVb3BwONa2ilHOixsq7+jg3yuU9L5AECrv6NBaqXjidDLM
vU4OTZOznfNi2KHyTg4WG+6H/hWBhY+zQ5qveFfD7s+Q8Glwdviw+EOTxY2j
0Ph0cVj18NqRC96XIfwGF4dlb2fpWLbB0perwzqzL3Nnz/wElXd1YCgOSXoi
cRUq7+ZgkHHN7dvHG1Dz3RxO/X996GnXG2h8uDusTTv5fqPlTai8u4O3Uoqa
3YkrUP0eDlu+ZYpfimJwgMh7OPwpNvZ9PpcDwmfwdPgt/Kj+tbigAwD0Q951

                   "]], FontFamily -> "Arial", StripOnInput -> False]}}, {}}, 
              AspectRatio -> 1, Axes -> {False, False}, 
              AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, Background -> 
              GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, 
              DisplayFunction -> Identity, 
              Frame -> {{True, True}, {True, True}}, 
              FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
              Directive[
                Thickness[Tiny], 
                GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 
                Dynamic[
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                  Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, 
              Method -> {"ScalingFunctions" -> None}, 
              PlotRange -> {{0., 50.}, {-7.030970816185017, 
               4.273359296964368}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{1, 1}, {1, 1}}, 
              Ticks -> {Automatic, Automatic}], 
             GridBox[{{
                TagBox[
                 TemplateBox[{
                   RowBox[{
                    TagBox["\"Time: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"01 Jan 1980\"", "SummaryItem"]}], 
                   RowBox[{
                    TagBox["\" to \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"01 Jan 2019\"", "SummaryItem"]}]}, 
                  "RowDefault"], "SummaryItem"], "\[SpanFromLeft]"}, {
                RowBox[{
                  TagBox["\"Data points: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["40", "SummaryItem"]}], "\[SpanFromLeft]"}, {
                RowBox[{
                  TagBox["\"Regular: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["True", "SummaryItem"]}], 
                RowBox[{
                  TagBox["\"Output dimension: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["1", "SummaryItem"]}]}, {
                RowBox[{
                  TagBox["\"Metadata: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["None", "SummaryItem"]}], 
                RowBox[{
                  TagBox["\"Minimum increment: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox[
                   RowBox[{"{", 
                    RowBox[{"1", ",", "\"Year\""}], "}"}], "SummaryItem"]}]}, {
                TagBox["\"\"", "SummaryItem"], 
                RowBox[{
                  TagBox["\"Resampling: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"LinearInterpolation\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   TemporalData[TimeSeries, {{{
       Quantity[993877310, "People"], 
       Quantity[1008000152, "People"], 
       Quantity[1022253396, "People"], 
       Quantity[1037123834, "People"], 
       Quantity[1053210735, "People"], 
       Quantity[1070863389, "People"], 
       Quantity[1090348056, "People"], 
       Quantity[1111341725, "People"], 
       Quantity[1132866344, "People"], 
       Quantity[1153565894, "People"], 
       Quantity[1172445200, "People"], 
       Quantity[1189183522, "People"], 
       Quantity[1204003901, "People"], 
       Quantity[1217129133, "People"], 
       Quantity[1228991932, "People"], 
       Quantity[1239940004, "People"], 
       Quantity[1249981441, "People"], 
       Quantity[1259066974, "People"], 
       Quantity[1267441503, "People"], 
       Quantity[1275406699, "People"], 
       Quantity[1283198970, "People"], 
       Quantity[1290937649, "People"], 
       Quantity[1298646577, "People"], 
       Quantity[1306343911, "People"], 
       Quantity[1314007478, "People"], 
       Quantity[1321623490, "People"], 
       Quantity[1329209094, "People"], 
       Quantity[1336800506, "People"], 
       Quantity[1344415227, "People"], 
       Quantity[1352068091, "People"], 
       Quantity[1359755102, "People"], 
       Quantity[1367480264, "People"], 
       Quantity[1375198619, "People"], 
       Quantity[1382793212, "People"], 
       Quantity[1390110388, "People"], 
       Quantity[1397028553, "People"], 
       Quantity[1403500365, "People"], 
       Quantity[1409517397, "People"], 
       Quantity[1415045928, "People"], 
       Quantity[1420062022, "People"]}}, {
      TemporalData`DateSpecification[{1980, 1, 1, 0, 0, 0.}, {
       2019, 1, 1, 0, 0, 0.}, {1, "Year"}]}, 1, {"Continuous", 1}, {
     "Discrete", 1}, 1, {
     ValueDimensions -> 1, DateFunction -> Automatic, 
      ResamplingMethod -> {"Interpolation", InterpolationOrder -> 1}, 
      TemporalRegularity -> True}}, True, 11.1],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "\[Placeholder]"]], "Output",
 CellChangeTimes->{3.7845996403163414`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"894a7e31-b2f9-4ce1-9ea8-ade720334f17"]
}, Open  ]]
},
WindowSize->{759, 553},
WindowMargins->{{Automatic, 252}, {24, Automatic}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
\:65e5)",
StyleDefinitions->FrontEnd`FileName[{"Book"}, "Textbook.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 477, 11, 45, "Input",ExpressionUUID->"0750cc13-a9a5-4510-9111-be0601041043"],
Cell[1060, 35, 1804, 29, 65, "Message",ExpressionUUID->"671e481d-e8b7-41d0-9f2d-6cb3a28e0cff"],
Cell[2867, 66, 1173, 24, 48, "Output",ExpressionUUID->"abb74f99-bb79-4402-a5ef-a7cfa8d86011"]
}, Open  ]],
Cell[4055, 93, 411, 10, 45, "Input",ExpressionUUID->"bc2dd685-c653-429b-899d-314e407089b8"],
Cell[4469, 105, 360, 7, 45, "Input",ExpressionUUID->"be804ee5-0aef-4fd6-af18-f03cbe8805ca"],
Cell[CellGroupData[{
Cell[4854, 116, 509, 10, 80, "Input",ExpressionUUID->"b6d0c1e0-fddc-49fa-b4fb-737b585b2337"],
Cell[5366, 128, 157, 2, 29, "Output",ExpressionUUID->"0752986c-b474-458f-bd48-efbf8f3ec417"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5560, 135, 907, 22, 168, "Input",ExpressionUUID->"565d5646-a1da-48c7-b767-c5272f79371a"],
Cell[6470, 159, 544, 11, 24, "Message",ExpressionUUID->"90a372ed-15ce-4748-acad-0cab9c08d752"],
Cell[7017, 172, 831, 24, 45, "Output",ExpressionUUID->"52703ab1-58fb-460d-a025-ded9c6104012"]
}, Open  ]],
Cell[7863, 199, 259, 4, 45, "Input",ExpressionUUID->"e1446aa2-9884-4e5c-b53a-511226a8300d"],
Cell[CellGroupData[{
Cell[8147, 207, 607, 14, 80, "Input",ExpressionUUID->"da8a4d2c-c4ca-4e01-8d80-824bdac21f2a"],
Cell[8757, 223, 8600, 163, 249, "Output",ExpressionUUID->"8f874db7-4979-4f85-a06c-f46380682209"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17394, 391, 855, 21, 98, "Input",ExpressionUUID->"1e8de672-fb3f-4d6e-a692-925e88fd94d4"],
Cell[18252, 414, 1845, 36, 431, "Output",ExpressionUUID->"8dbd9515-99cc-45f8-bdd5-57fe70d91506"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20134, 455, 325, 6, 45, "Input",ExpressionUUID->"0785a000-7270-46c4-8b7c-50381e04d984"],
Cell[20462, 463, 204, 2, 29, "Output",ExpressionUUID->"ba9504fe-e5ae-4edf-b5c9-bfe2dc9b1db3"]
}, Open  ]],
Cell[20681, 468, 292, 4, 45, "Input",ExpressionUUID->"123ab611-670e-4710-b002-5beceb19578d"],
Cell[CellGroupData[{
Cell[20998, 476, 581, 14, 80, "Input",ExpressionUUID->"a5fc9897-9c73-456b-b76a-fb7b40827644"],
Cell[21582, 492, 659, 14, 45, "Message",ExpressionUUID->"529eeece-9945-4060-9837-7cb6d6d3e870"],
Cell[22244, 508, 1098, 19, 65, "Message",ExpressionUUID->"1856623e-20b8-44a8-b7cc-96812e6b9ca5"],
Cell[23345, 529, 505, 12, 29, "Output",ExpressionUUID->"c6226ee3-0c2d-4879-aabd-a4244467e3d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23887, 546, 5435, 114, 59, "Input",ExpressionUUID->"66e55a97-0b47-4bb7-bff5-36732d033b15"],
Cell[29325, 662, 12077, 245, 69, "Output",ExpressionUUID->"894a7e31-b2f9-4ce1-9ea8-ade720334f17"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

